home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 October / Ahoy_Magazine_88-10_1988_Double_L.d64 / downshift 128 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  488b  |  13 lines
  1. 1 rem *** downshift 128 ***
  2. 2 a=4864:printchr$(147)
  3. 3 forj=atoa+71:readb:pokej,b:x=x+b:nextj
  4. 4 ifx<>10304thenprint"error in data...":end
  5. 5 c=int(a/256):d=(a-(c*256))+13:pokea+1,d:pokea+3,c
  6. 6 print"data ok * sys"a"to activate...":end
  7. 7 data169,13,162,19,120,141,20,3,142,21,3,88
  8. 8 data96,165,212,160,0,201,4,208,8,232,208,253
  9. 9 data200,192,64,144,248,201,5,208,8,232,208,253
  10. 10 data200,192,128,144,248,201,6,208,8,232,208,253
  11. 11 data200,192,192,144,248,201,3,208,8,32,159,255
  12. 12 data165,212,184,80,244,169,0,133,209,76,101,250
  13.